SetHour Subroutine

public subroutine SetHour(hour, time)

Set the hour of the datetime represented by this instance

Arguments

Type IntentOptional Attributes Name
integer(kind=short), intent(in) :: hour
type(DateTime), intent(out) :: time

Source Code

SUBROUTINE  SetHour &
!
(hour, time)

IMPLICIT NONE

! Arguments with intent(in):
INTEGER (KIND = short), INTENT(IN) :: hour

! Arguments with intent(out):
TYPE (DateTime), INTENT(OUT) :: time

!------------end of declaration------------------------------------------------

time % hour = hour

CALL DateCheck (time)

END SUBROUTINE SetHour